home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / avidem / mmpform1.frm < prev    next >
Text File  |  1995-05-08  |  9KB  |  401 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "MultiMedia Demo in Visual Basic"
  4.    ClientHeight    =   4950
  5.    ClientLeft      =   435
  6.    ClientTop       =   2250
  7.    ClientWidth     =   7800
  8.    Height          =   5640
  9.    Left            =   375
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4950
  13.    ScaleWidth      =   7800
  14.    Top             =   1620
  15.    Width           =   7920
  16.    Begin TextBox Text1 
  17.       BorderStyle     =   0  'None
  18.       FontBold        =   -1  'True
  19.       FontItalic      =   0   'False
  20.       FontName        =   "MS Sans Serif"
  21.       FontSize        =   12
  22.       FontStrikethru  =   0   'False
  23.       FontUnderline   =   0   'False
  24.       Height          =   405
  25.       Left            =   3000
  26.       TabIndex        =   0
  27.       TabStop         =   0   'False
  28.       Text            =   "Text1"
  29.       Top             =   4440
  30.       Width           =   4215
  31.    End
  32.    Begin CommandButton Command6 
  33.       Caption         =   "EXIT"
  34.       Height          =   375
  35.       Left            =   1320
  36.       TabIndex        =   9
  37.       Top             =   4440
  38.       Width           =   735
  39.    End
  40.    Begin Timer Timer2 
  41.       Left            =   5760
  42.       Top             =   3840
  43.    End
  44.    Begin Timer Timer1 
  45.       Enabled         =   0   'False
  46.       Left            =   5040
  47.       Top             =   3840
  48.    End
  49.    Begin CommandButton Command5 
  50.       Caption         =   "Resume"
  51.       Height          =   375
  52.       Left            =   1800
  53.       TabIndex        =   8
  54.       Top             =   3840
  55.       Width           =   855
  56.    End
  57.    Begin CommandButton Command4 
  58.       Caption         =   "Pause"
  59.       Height          =   375
  60.       Left            =   720
  61.       TabIndex        =   7
  62.       Top             =   3840
  63.       Width           =   855
  64.    End
  65.    Begin CommandButton Command3 
  66.       Caption         =   "Close MMP File"
  67.       Height          =   735
  68.       Left            =   840
  69.       TabIndex        =   6
  70.       Top             =   2640
  71.       Width           =   1695
  72.    End
  73.    Begin CommandButton Command8 
  74.       Caption         =   "Stop Recorder"
  75.       Height          =   735
  76.       Left            =   1920
  77.       TabIndex        =   10
  78.       Top             =   1800
  79.       Width           =   1695
  80.    End
  81.    Begin CommandButton Command7 
  82.       Caption         =   "Start Recorder"
  83.       Height          =   735
  84.       Left            =   0
  85.       TabIndex        =   11
  86.       Top             =   1800
  87.       Width           =   1695
  88.    End
  89.    Begin CommandButton Command2 
  90.       Caption         =   "Play MMP File"
  91.       Height          =   735
  92.       Left            =   840
  93.       TabIndex        =   5
  94.       Top             =   960
  95.       Width           =   1695
  96.    End
  97.    Begin FileListBox File1 
  98.       Height          =   2565
  99.       Left            =   5520
  100.       Pattern         =   "*.mid;*.wav;*.mmm;*.avi"
  101.       TabIndex        =   3
  102.       Top             =   720
  103.       Width           =   1695
  104.    End
  105.    Begin DirListBox Dir1 
  106.       Height          =   2535
  107.       Left            =   3720
  108.       TabIndex        =   1
  109.       Top             =   720
  110.       Width           =   1695
  111.    End
  112.    Begin DriveListBox Drive1 
  113.       Height          =   315
  114.       Left            =   3720
  115.       TabIndex        =   2
  116.       Top             =   120
  117.       Width           =   1695
  118.    End
  119.    Begin CommandButton Command1 
  120.       Caption         =   "Open MMP File"
  121.       Height          =   735
  122.       Left            =   840
  123.       TabIndex        =   4
  124.       Top             =   120
  125.       Width           =   1695
  126.    End
  127.    Begin Menu About 
  128.       Caption         =   "&About"
  129.       Begin Menu About1 
  130.          Caption         =   "About &MultiMedia Demo"
  131.       End
  132.    End
  133. End
  134. Sub About1_Click ()
  135.     CRLF$ = Chr$(13) + Chr$(10)
  136. Msg$ = "Written by Jerry Turpin" + CRLF$ + "Bedford, VA" + CRLF$ + "(800) 456-7775"
  137. MsgBox (Msg$)
  138.  
  139.  
  140. End Sub
  141.  
  142. Sub Command1_Click ()
  143.  
  144. Command2.Enabled = 0
  145. Command3.Enabled = 0
  146. Command4.Enabled = 0
  147. Command5.Enabled = 0
  148.  
  149.  
  150. Dim i As Integer
  151. A$ = ""
  152. If InStr(TheFile, ".mid") > 0 Then FileType$ = "MUSIC"
  153. If InStr(TheFile, ".wav") > 0 Then FileType$ = "TALK"
  154. If InStr(TheFile, ".mmm") > 0 Then FileType$ = "MOVIE"
  155. If InStr(TheFile, ".avi") > 0 Then FileType$ = "VID"
  156.  
  157.  If FileType$ = "MOVIE" Then
  158.     Action$ = "Open " + TheFile + " Type MMMOVIE alias MOVIE"
  159.  Else
  160.     Action$ = "Open " + TheFile + " alias " + FileType$
  161.  End If
  162.  
  163. i = mciExecute(Action$)
  164.  
  165. Command2.Enabled = -1
  166. Command3.Enabled = -1
  167.  
  168.  
  169. End Sub
  170.  
  171. Sub Command2_Click ()
  172.  
  173. Command1.Enabled = Not Command1.Enabled
  174.  
  175. Dim i As Integer
  176. A$ = ""
  177. If InStr(TheFile, ".mid") > 0 Then FileType$ = "MUSIC"
  178. If InStr(TheFile, ".wav") > 0 Then FileType$ = "TALK"
  179. If InStr(TheFile, ".mmm") > 0 Then FileType$ = "MOVIE"
  180. If InStr(TheFile, ".avi") > 0 Then FileType$ = "VID"
  181.  
  182. Action$ = "Play " + FileType$
  183.            
  184. If InStr(TheFile, ".wav") > 0 Then
  185.            Open TheFile For Random Shared As #1
  186.  
  187.            Timer2.Enabled = -1
  188.            Timer2.Interval = LOF(1) / 11
  189.          Rem assumes 11K/sec. .WAV files
  190.  
  191.            Close 1
  192. End If
  193.  
  194.  
  195.  
  196. i = mciExecute(Action$)
  197. Command2.Enabled = 0
  198. Command4.Enabled = -1
  199.                     
  200. End Sub
  201.  
  202. Sub Command3_Click ()
  203.  
  204. Dim i As Integer
  205.  
  206. If InStr(TheFile, ".mid") > 0 Then FileType$ = "MUSIC"
  207. If InStr(TheFile, ".wav") > 0 Then FileType$ = "TALK"
  208. If InStr(TheFile, ".mmm") > 0 Then FileType$ = "MOVIE"
  209. If InStr(TheFile, ".avi") > 0 Then FileType$ = "VID"
  210.  
  211.  
  212.  
  213.  
  214.  
  215. Action$ = "Close " + FileType$
  216. i = mciExecute(Action$)
  217. Command2.Enabled = 0
  218. Command3.Enabled = 0
  219. Command4.Enabled = 0
  220. Command5.Enabled = 0
  221. Command1.Enabled = -1
  222.  
  223. End Sub
  224.  
  225. Sub Command4_Click ()
  226.  
  227.  
  228. Dim i As Integer
  229.  
  230. If InStr(TheFile, ".mid") > 0 Then FileType$ = "MUSIC"
  231. If InStr(TheFile, ".wav") > 0 Then FileType$ = "TALK"
  232. If InStr(TheFile, ".mmm") > 0 Then FileType$ = "MOVIE"
  233. If InStr(TheFile, ".avi") > 0 Then FileType$ = "VID"
  234.  
  235.  
  236.  
  237. Action$ = "Pause " + FileType$
  238. i = mciExecute(Action$)
  239. If i = 1 Then
  240.   Command5.Enabled = -1
  241.   Command4.Enabled = 0
  242. End If
  243.  
  244. End Sub
  245.  
  246. Sub Command5_Click ()
  247.  
  248.  
  249. Dim i As Integer
  250.  
  251. If InStr(TheFile, ".mid") > 0 Then FileType$ = "MUSIC"
  252. If InStr(TheFile, ".wav") > 0 Then FileType$ = "TALK"
  253. If InStr(TheFile, ".mmm") > 0 Then FileType$ = "MOVIE"
  254. If InStr(TheFile, ".avi") > 0 Then FileType$ = "VID"
  255.  
  256.  
  257.  
  258. Action$ = "Play " + FileType$
  259. i = mciExecute(Action$)
  260. If i = 1 Then
  261.   Command4.Enabled = -1
  262.   Command5.Enabled = 0
  263. End If
  264.  
  265.  
  266. End Sub
  267.  
  268. Sub Command6_Click ()
  269.  
  270.  
  271. Action$ = "Close all"
  272. i = mciExecute(Action$)
  273. End
  274.  
  275.  
  276. End Sub
  277.  
  278. Sub Command7_Click ()
  279.  
  280. Command1.Enabled = Not Command1.Enabled
  281.  
  282. Dim i As Integer
  283.  
  284. Action$ = "Close All"
  285. i = mciExecute(Action$)
  286.  
  287. Action$ = "Open NEW type waveaudio alias TALK"
  288.  
  289. i = mciExecute(Action$)
  290.  
  291. Action$ = "Record Talk"
  292. Timer1.Enabled = -1
  293. Timer1.Interval = 1000
  294.  
  295. i = mciExecute(Action$)
  296. Command1.Enabled = 0
  297. Command2.Enabled = 0
  298. Command4.Enabled = -1
  299.                     
  300.  
  301.  
  302.  
  303. End Sub
  304.  
  305. Sub Command8_Click ()
  306.  
  307. Command1.Enabled = Not Command1.Enabled
  308.  
  309. Dim i As Integer
  310. Action$ = "Stop Talk"
  311.  
  312.  
  313. i = mciExecute(Action$)
  314.  
  315.  
  316. Action$ = "SAVE TALK MyDemo.WAV"
  317.  
  318.  
  319.  
  320. i = mciExecute(Action$)
  321.  
  322.  Action$ = "Close Talk"
  323. i = mciExecute(Action$)
  324.  
  325. Call Dir1_Change
  326. TheFile = "MyDemo.WAV"
  327. Text1.Text = "Recorded File Name is MyDemo.WAV"
  328. Command2.Enabled = 0
  329. Command4.Enabled = -1
  330.                     
  331.  
  332.  
  333.  
  334.  
  335.  
  336. End Sub
  337.  
  338. Sub Dir1_Change ()
  339.  
  340. ChDir Form1.Dir1.List(Form1.Dir1.ListIndex)
  341.  
  342.  File1.Path = CurDir$
  343.  File1.Refresh
  344.  
  345.  
  346.  
  347. End Sub
  348.  
  349. Sub Drive1_Change ()
  350. ChDrive Form1.Drive1.List(Form1.Drive1.ListIndex)
  351. Dir1.Path = CurDir$
  352. Dir1.Refresh
  353. End Sub
  354.  
  355. Sub File1_Click ()
  356.  
  357. TheFile = File1.List(File1.ListIndex)
  358.  
  359.  Command1.Enabled = -1
  360.  
  361.  Text1.Text = TheFile
  362.  Action$ = "Close All"
  363.  i = mciExecute(Action$)
  364.  
  365. End Sub
  366.  
  367. Sub Form_Click ()
  368. Dim i As Integer
  369. A$ = ""
  370.  
  371. While A$ = ""
  372. A$ = InputBox$("command:", "MCI Input", "close all                         ")
  373.